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SBEGIN RMIPUTSET,000,RMSRMS1,<SETUP FOR SPUT/SUPDATE SEQUENTIAL> 


Ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
** ® 
‘® & 
:® ® 
*® *® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE  * 
ie ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
se PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 18 HEREBY 
:* TRANSFERRED. . 
* ® 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
s® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:* CORPORATION. . 
bad * 
*® te 
:* * 
** * 
** ® 
** ® 
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SOFTWARE ON EQUIPMENT WHICH 


Y 
NOT SUPPLIED BY DIGITAL. 
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RMIPUTSET SETUP FOR SPUT/SUPDATE SEQUENTIAL 16-SEP-1984 00:55:0 AX/VMS Macro v04-00 P 
VOueb08 ae es 1 90:38:05 YAMS SRCIRMTPUTSET MAR: 1 — (3) 
8 p++ 
6 : Facility: rms32 
: : Abstract: this module performs various setups for 
Z : $put and Supdate on the sequential file organization. 
00 5 = Environment: 
83 $ : star processor running starlet exec. 
00 3 ; Author: L F Laverdure, creation date: 17-FEB-1977 
69 40 : Modified By: 
000 4¢ : v03-005 DASO001 David Solomon 08-F eb-1984 
0000 re : Performance enhancement for variable length records. 
000 45; V03-004 RASO115 Ron Schaefer 10-Jan-1983 
44 rf ; Check for total record size negative (i.e. size > 32767). 
0000 «448: V03-003 KBT0416 Keith B. Thompso 30-Nov-1982 
494 rH : Change ifb$w pe A to ifb$l “devbutsiz 
9000 1: V03-002 KBT0146 Keith 8. Thompson 20-Aug-1982 
464 ¢ ; Reorganize psecits 
0000s «54: v03-001 KBT0087 Keith 8. Thompson 13-Jul-1982 
B28 2? : Clean up psects 
0000 57 ; v02-011 RASO049 Ron Schaefer 15-Dec-1981 
494 28 : Fix stm terminator check. 
0000 «= 60: v02-010 RASO0028 n Schaefer 20-AUG-1981 
4 $ : Change FABSC mie to FABSC_STM. 
0000 8 ; v02-009 RASO016 Ron Schaefer 31-Jul-1981 
4 ¢ : Add support for stream format. 
$090 66 : v02-008 MCNO003 Maria del C. Nasr 11-Nov-1980 
0000 67 ; Check that variable length records written to an ANSI tape 
0000 68 ; are not longer than to 9999 bytes, since this is the plesest 
4 $° 3 number that fits in the record control word. 
9000 4 ; V02-007 REFORMAT Maria del C. Nasr 24-Jul-1980 
0000 ig : v0006 C¢DdS0001 C D Saether 11-MAR-1980 
44 ee : don't calculate record overhead for unit record devices 
44 6 : Revision History: 
00 3 
0000 ee 3 L F Laverdure, 14-AUG-1978 15:39 
0000 79 ; long probe fix 
38 80 ; 
$0 : . 
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3; Equated Symbols: 
; Own Storage: 


pA eee One Ae EY ohe oO OL Tt EAD Oo 4 
PAOAAAASASOOCOOCOCSSCSCSO 


et ec et ee el ee 


J 8 
RMIPUTSET SETUP FOR SPUT/SUPDATE SEQUENTIAL 16-SEP-1984 00:55:0 AX/VMS Macro v04-00 c 
yo4-008 RMSPUTSETUP1 BreEE 198 fes28ie> FANS cRcTaAToUYScTomaR:1 age 
}) -SBTTL RMSPUTSETUPI 
118 p++ 
114 ; RMSPUTSETUP1 = This module makes user input and operation 
12 : valid checks and calculates record overhead size. 
Nf : Calling sequence: 
118 : bsbw rm$putsetup! 
0 ! 1: Input Parameters: 
80 1 : : r10 ifab addr 
00 124 ; r9 irab addr 
4 : > r8 rab addr 
099 § : Implicit Inputs: 
0900 ' ; : the contents of the rab and related irab and ifab. 
0000 (131: 
it ! ¢ ; Output Parameters: 
000 134; r6 record data length in bytes 
000 135; r5 record address 
0000 138 3 ri total record Length including overhead bytes 
0000 137; r0 status code 
000 138 ; 
44 133 3 Implicit Outputs: 
0000 141; sequential file org temp. 
0000 16 : irb$w_rovhdsz: record overhead size in bytes 
44 1¢? 3 irb$w_rtotlsz: total record length including overhead bytes 
0000 145 : Completion Codes: 
0000 146; 
0000 147; standard rms, in particular, either suc, rbf, or rsz. 
0000 148; 
0000 149 ; Side Effects: 
44 150 ; 
it 151 ; none 
$000 «188° 
154 
0000 138 RMSPUTSETUP1:: 
4 136 STSTPT PUTSET1 
0 3 138 ; : 
> Fa 3 get the user record address & size and validate 
006 161° 
55 $8 A8 y 006 196 MOVL RABSL_RBF (RB) RS ; get record address 
56 2 AB oA 16 CVTWL 4 RABSW_RSZ(RB) RO ; get record length 
gaa 164 LSS ERRRSZ 3 Negative size invalid 
or 1 165 BEQL cuKsié 3 mo need to probe a null rec 
0200 8F § 81 3 196 MPW R6,# ; long probe needed? 
1A 1 16 BGTRU LONG_PROBE ; branch if yes 
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RMIPUTSET SETUP FOR SPUT/SUPDATE SEQUENTIAL 16-SEP-1984 00:55:0 AX/VMS Macro v04-00 
VO4-000 RMSPUTSETUP1 g-3tr=13 4 90:33:09 FMS SRCIRM1PUTSET MAR: 1 
1? ‘ IFNORD R6,(R5),ERRRBF 3 probe buffer 
1F 3 
1F 71 ; make record size checks and compute overhead based on 
1F 72 ; record format type 
eee 
51 D4 1F 75 CHKSIZ: CLRL R1 3 compute record overhead in r1 
0 91 1 7 CMPB #FABSC_VAR,- ; is it var record format? 
50 AA 7 1FB$B_RFMORG(R10) 
2 12 $ 4 BNEQ NOTVAR : no, go handle others 
027 3 
Bp f ; variable Length - add in size of record length bytes 
0027 ; 
0027 VARLEN: ASSUME DEVSV_REC EQ 0 
OA 6A €E8 0027 BLBS IFBSL_PRIM_DEV(R10), = 
002A LENCHe 3 no size for unit record devices 
51 G2 Aad 00274 ADDW2 #2,R1 3; normally 2 bytes 
03 6A 26 &* 02D 8 BBC #IFBSV_ANSI_D,(R10), = 
0081 Lene ; all set unless ansi d 
51 02 ad 0031 9 ADDW2 #2,R1 : in which case it's 4 
60 AA 83 0034 91 LENCHK: TSTW IFBSW_MRS(R10) > omit check if Limit is 0 
6— 1 344 9 BEQL HKBLR 
60 AA 56 81 0039 9 CMPW R6, 1FBSW_MRS(R10) ; check record length 
68 18 Baer 3 BLEQU HKBLK : and branch if le max. allowed 
OO3F 96 ; : 
Boer 97 ; record size too big 
F 98 ; 


0 

0 ERRRSZ: 
RMSERR RS? 
05 S RSB 

8 ERRRBF : 

RMSERR Sr ; bad user buffer 

05 0 RSB 

0 
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: Dispatch for other record formats. 
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NOTVAR: CASE LIMIT=#FABSC_UDF ,- ; based on record format 
4 SRC=IFB$B_RFAMORG(R10),- 
4 TYPE=B ,DISPLIST=- 
<UDFLEN,=- ; FABSC_UDF 
tgzteces.« ; FABSC_FIX 
048 10$,- ; FABSC_VAR 
048 VFCLEN,- 3; FABSC_VFC 
048 STMLEN,=- ; FABSC_STM 
0048 STMLEN,= ; FABSC_STMLF 
bee STMLEN> ; FABSC_STMCR 
a3 10$: RMSTBUG -99 ; bugcheck if we fall through 


51 
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5 VFCLEN: MOVB 
BRB 
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: get fixed header size for vfc 
pick up in VAR code 
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RMIPUTSET SETUP FOR SPUT/SUPDATE SEQUENTIAL 16-SEP-1984 00:55:0 AX/VMS Macro Vv04-00 P 7 | 
vO4-000 RMSPUTSETUP1 ~SEp-1984 Vorasie> EAMS SACTAMIPUYSET RAR;1 29° chy, 
| 
se : ; long probe needed subroutine | 
O68 ¢ LONG_PROBE: 
g 1 B BSBB RMSPROBEREAD 3; check readability 
AF 50 3 4 BLBS RO, CHKSIZ 3 all is ok continue 
5 RSB ; else exit 
0971 $ | 
4 8 : stream format record - check whether a DFT must be added | 
O71 $20 STMLEN: 
071 41 ASSUME DEVSV_REC EQ 0 
24 6A OC 071 $s BLBS IFBSL_PRIM_DEV(R10),10$ ; no additional chars for unit-record 
56 8B Bare 4 TSTW R6 3; zero len record 
1 1 076 44 BEQL 5$ 3; needs a terminator 
2 BB BOR 45 PUSHR #*M<R1 3 save size and record addr 
51 FF AS46 9 7A 46 MOVAB =1(R5)ER6],R1 : setup for term check | 
50 O01 OD 4 4 MOVL #1,R0 3; check only last char 
54° 50 AA 9A 0082 4g MOVZBL IFBSB_RFMORG(R10),R4  : get format type 
FF77* 30 0086 4 BSBW RMSSTA_TERM 3 check for terminator 
$f BA Boe 50 POPR #*M<R1;R5> 3 restore regs 
OA E8 0088 51 BLBS RO,10$ ; already have a terminator 
51 8986 008 26 5$: INCW = sR ; add in the DFT size 
50 ry 91 593 37 CMPB ACESS AE mERGtnte) <= : STM format? 
02 12 009% 255 BNEQ §=« 108s ; nope | 
51 B6 009 2 INCW R1 ; STM's DFT is 2 bytes Long 
03 ga so ci 24, ; 108: eet OF ESV ANSI _D. (R10) .208 ; need count field for ANS 
93 11 009F 35 208: RB LENCHK | 
i 
OA1 6¢ : fixed length record - check its size 
SOAy 364 | 
00A1 65 FIXEDLEN: 
52 AA 56 «B1_ COAT 66 CMPW = s«R6,, IF BSW_LRL (R10) ; compare against fixed size | 
98 12 OOAS 6 BNEQ ERRRSZ 3; branch if not equal | 
bay 569 | 
OA7 3 : if blk bit set (records can't cross block boundaries) check 
oat 4 : that total record size is less than a block | 
A? g UDFLEN: 
6449 51 8B A7 74 CHKBLK: MOVW R1, IRB$W_ROVHDSZ(R9) ; save overhead size 
3s. a AB 75 ADDW2 R6,R1 3 compute total record size 
ar 19 OOA i: BLSS ERRRSZ : bad if neg (=> size>32767) 
1A 51 AA 03 1 08 , BC #F ABSV_BLK, IFBSB_RAT(RIO) , 108; branch if no boundary 
3: restriction 
48 AA 51 1 008 48 CPW R1, 1FBSL_DEVBUFSIZ(R10) ; compare against block size 
B4 «(1A 089 0 BGTRU ERRRSZ : and branch if too big 
8 3 
ie : ; If ANSI_D record (variable length in ANSI magtape) make sure that 
4 ; record Ts not bigger than 9999 bytes. 
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VOu-000 RMSPUTSETUP1 o7SEb=| obe ? 38:45 YAMS SRCIRMTPUTSET OMAR; 1 ° &) 


BB 
ig 6A 26 3 8 BBC 4} 34 V_ANSI_D ai? 10$ ; branch, if not ANSI_D 
50 AA | B ’ CMPB if B_RFMORG( A160 ) WEABSC!FIX ; branch, if fixed Length 
0 C BEQL 0 
270F BF 1 ¢ MPW R1,#9999 3 within maximum size? 
8 CA BLEQU 108 > yes 
FF cc WW ERRRSZ : error if not 
66 Ao =—551~—s«éwBWOD cf 93 10$: MOVW R1, 1RBSW_RTOTLSZ(R9) 3; save total record size 
4 94 RMSSUC 
05 08 95 R 
0D 96 


B 9 
RMIPUTSET SETUP FOR SPUT/SUPDATE SEQUENTIAL 16-SEP-1984 00:55:0 i/AX/VMS Macro V04-00 Page 
VO4e000 RMSPROBEREAD = PROBE BUFFER READABILITY mie} 90:33:08 RMS.SRCIJRMIPUTSET.MAR; 1 ~ 
4 38 ~SBTTL RMSPROBEREAD = PROBE BUFFER READABILITY , 
ye 
QD? 54 ; RMSPROBEREAD = This routine probes the caller's buffer 
007 8s 3 for readability. 
D7 4: Callin sequence: 
0D7 6¢ 3 . 
0D7 86 3 bsbw rm$proberead 
007 07 ; 
0D7 : : Input Parameters: 
tee 09 ; 
D7 19 : ri0 ifab addr 
0007 11; r9 irab addr 
0007 \§ 3 re size of buffer 
0007 13 3 r addr of buffer 
00D7 14; 
00D7 15 ; Implicit Inputs: 
0007 16 ; 
00D7 3 irb$b_mode 
0007 18 ; 
00D7 19 ; outputs: 
00D7 20 ; 
00D7 $3 3 r0 status code 
0007 ‘3 § 3 a 
00D7 $5 3 Implicit Outputs: 
0007 24 ; 
00D7 25 ; none 
00D7 26 ; : 
00D7 27 ; condition codes: 
00D7 28 ; : 
00D7 4 $ standard rms, in particular, rbf or suc. 
00D7 3... 
0007 31 ; Side Effects: 
0007 3 ; 
00D7 5 none 
00D7 34 ; 
00D7 35 ;-- 
00D7 36 
0007 37 
ita 38 RMSPROBEREAD: : 
7€ 855 7D 00D7 39 MOVQ R5,-(SP) ; save r5,r6 
01 DD OQODA 40 PUSHL #1 3 anticipate success 
56 ~~ Bebe 41 TSTL R6 ; zero buffer size? 
1A of 4g BEQL EXIT1 ; omit probe if so 
OOE 4 
43 44 ; 
OE 45 ; probe all pages 
OfO 349 
50 FEOO 8F 32 OOE 48 CVTWL = #-512,R0 ; get address calc constant 
O0E 49 10$: IFNORD R6,(R5),ERKRBF1,- 

OE 50 1RBSB_AODE(R9) ; branch if not readable 
| $2 EC 51 SUBL2 RO,R ; get address of next page 
56 6640 = 3E OFF Se MOVAW  (R6)CROI,R6 i Calculate new Length 

FO 14 re 5§ BGTR 10$ 3 continue eraping f positive 
56 50 C2 O00F 54 SUBL2 RO,R6 3; need to handle last page? 
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oe SETUP FOR SPUT/SUPDATE SEQUENTIAL 16-SEP=1 138% 90:33:08 ae Macro v04-00 Page 10 
V04 RMSPROBEREAD = PROBE BUFFER READABILITY =SEP=-1984 16:23:4 RMS.SRCIRMIPUTSET.MAR; 1 (6). 
? OF8 55 BGTR 10$ ; branch if yes 
0061 8F ore 2$ EXIT1: 4 #*M<RO,RS,RO> ; restore buffer desc. & status 
aa’ 
FF 5 ; 
ree oY 3; probe failure - set error code 
Fr 6¢ : 
OFF 635 ERRRBF1 
OFF 64 * RMSERR RBF , (SP) 
F411 «0106S 365 BRB EXIf1 
106 66 
106 6 
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$$.PSECT_EP 
SSRMSTEST 
SSRMS_PBUGCHK 
SERRS ~'BUGCHK 
RMS “UMODE 


e6zee 


MODE 
BSW~ROVHDSZ 
RBSW-RTOTLSZ 
ENCH 


RMSB 
RMSPROBERE AD 
RMSPUTSETUP1 
RMSSTM_TERM 
RMS$_REF 


RMS$_RSZ 
STMLEN 
TPT$L_PUTSET1 
UDFLER 


VARLEN 
VFCLEN 


PSECT name 


F MORG 
$L “DE VBUF S12 
SL“PRIM_DEV 
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VAK-11 Macro Run Statistics =SEP=1984 16:23:4 RMS.SRCIRMIPUTSET.MAR; 1 ( 


Performance indicators ! 


! 
Gnceueesesunssqnneeeneses} 


Phase Page faults CPU Time Elapsed Time 
nitialization ° :00:00. 
Initializati 4 00:00 11 0:0 97 
Command processing 14 :00:00.75 0:00:03. 9 
Pass 1 304 0:00:09.4 0:00:28. 
pyase) table sort 0 :00: 1.6 00:00:01. 9 
Pass 74 :00:01. 8 : 3: 4, 
Symbol table output :00: 8-8 :00:00. ‘ 
Psect synopsis output :00.03 0:00:00.0 
Cross-reference output 00: 8-8 B88: 88-88 
Assembler run totals 56 00:00:13.60 0:00:39.96 


} 

| 

| 

The working set_Limit was 1500 pages. | 
52606 bytes (103 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 1022 non-local and 8 local symbols. 

? source Lines were read in Pass 1, producing 13 object records in Pass 2. 

4 pages of virtual memory were used to define 23 macros. 

| 

| 

| 

| 
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Macro Library name Macros defined 
~BSeR8DUAGE: RMS.OBJJRMS.MLB; 1 12 
_5255$DUA28: (SYS.OBJJLIB.MLB; 1 2 
$255$DUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all Libraries) 19 


1152 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMIPUTSET/OBJ=OBJ$:RMIPUTSET MSRC$:RMIPUTSET/UPDATE=(ENHS:RMIPUTSET) +EXECML$/LIB+LIB$:RMS/LIB 


MENT CORPORATION ~ 
AND PROPRIETARY 


AH-BT13A-SE P 


| DIGI 
VAX/VMS V4.0 CONF 


0322 


